home *** CD-ROM | disk | FTP | other *** search
/ Mac Ga Ichiban! 1996 November / macgaichiban199611.bin / NEWS ROOM / JungleParkDEMO / STAGE / DEMO.Dxr / 01643.ls < prev    next >
Encoding:
Text File  |  1996-05-07  |  926 b   |  45 lines
  1. on keyDownJob
  2.   if the commandDown and ((the key = ".") or (the key = "q")) then
  3.     sound stop 1
  4.     sound stop 2
  5.     go("end")
  6.   else
  7.     if the controlDown and ((the key = ".") or (the key = "q")) then
  8.       sound stop 1
  9.       sound stop 2
  10.       go("end")
  11.     end if
  12.   end if
  13. end
  14.  
  15. on keydownjobquit
  16.   if the commandDown and ((the key = ".") or (the key = "q")) then
  17.     sound stop 1
  18.     sound stop 2
  19.     go("quit")
  20.   else
  21.     if the controlDown and ((the key = ".") or (the key = "q")) then
  22.       sound stop 1
  23.       sound stop 2
  24.       go("quit")
  25.     end if
  26.   end if
  27. end
  28.  
  29. on quitjobjp
  30.   global rwobj, sarumovemouse, olgsndl
  31.   set the soundLevel to olgsndl
  32.   when keyDown then nothing
  33.   set the keyDownScript to EMPTY
  34.   if the machineType <> 256 then
  35.     if objectp(rwobj) then
  36.       rwobj(mdispose)
  37.     end if
  38.     if objectp(sarumovemouse) then
  39.       sarumovemouse(mdispose)
  40.     end if
  41.     closeXLib()
  42.   end if
  43.   quit()
  44. end
  45.